From 1da3a292324a166b2a1c776149cd30c58281f179 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Tue, 5 Feb 2019 21:54:42 +0000 Subject: [PATCH] pathnames1.13 Gbp-Pq: Name pathnames1.13 --- lsp/gcl_iolib.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp index 60a18d99..d3bca684 100755 --- a/lsp/gcl_iolib.lsp +++ b/lsp/gcl_iolib.lsp @@ -460,7 +460,8 @@ (defun load-pathname-exists (z) (or (probe-file z) (when *allow-gzipped-file* - (probe-file (string-concatenate (namestring z) ".gz"))))) + (when (probe-file (string-concatenate (namestring z) ".gz")) + z)))) (defun load-pathname (p print if-does-not-exist external-format &aux (pp (merge-pathnames p)) -- 2.30.2